﻿Public Class AgregarServicio

    'Creamos un nuevo concepto
    Dim miServicio As Servicio

    'Obejeto para la BBDD
    Dim objetoBBDD As BBDD

    Private Sub AgregarConcepto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Inicializamos variables
        miServicio = New Servicio
        objetoBBDD = New BBDD

        Dim todoCorrecto As Boolean


        Dim _nombre As String
        Dim _precio As Single
        Dim _descripcion As String

        _nombre = tbNombre.Text
        _precio = tbPrecio.Text
        _descripcion = tbDescripcion.Text

 
        If Validaciones.comprobarVacio(_nombre) Or Validaciones.comprobarVacio(_precio) Then
            MsgBox("No puede haber campos vacios")
        Else
            todoCorrecto = True
        End If


        If todoCorrecto Then

            miServicio.Nombre = _nombre
            miServicio.Precio = _precio
            miServicio.Descripcion = _descripcion

            Try
                objetoBBDD.Conectar()
                If objetoBBDD.InsertarServicio(miServicio) Then
                    MsgBox("Servicio añadido de forma correcta")
                End If
            Catch ex As Exception
                objetoBBDD.Desconectar()
                MsgBox("Ha habido un error")
            End Try

            objetoBBDD.Desconectar()
        End If



    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class